4.3.11 (e x)^m (a+b tan(c+d x^n))^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    290069,       5609]
NotebookOptionsPosition[    282923,       5423]
NotebookOutlinePosition[    284661,       5477]
CellTagsIndexPosition[    284618,       5474]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, 3.6857607860863657`*^9, 
   3.685761754022728*^9, 3.6857634626204543`*^9, 3.685818346010613*^9, 
   3.6858183842157984`*^9, 3.6860743452988424`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       FractionBox["1", "n"], "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
      RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, 
   3.5239334940268483`*^9, {3.524105742828332*^9, 3.524105745433536*^9}, {
   3.524105783326003*^9, 3.5241058043704395`*^9}, {3.524167197804468*^9, 
   3.524167275274576*^9}, {3.5241673584446926`*^9, 3.5241673584446926`*^9}, {
   3.5241684217861814`*^9, 3.5241684663262434`*^9}, {3.5241684966162863`*^9, 
   3.5241685133463097`*^9}, {3.524168558706373*^9, 3.524168575716397*^9}, {
   3.5242542194504414`*^9, 3.5242543397578526`*^9}, {3.5242543718471093`*^9, 
   3.5242544424216332`*^9}, {3.524254478910097*^9, 3.5242545759266677`*^9}, {
   3.5242546436307864`*^9, 3.5242546436307864`*^9}, {3.5242547267009325`*^9, 
   3.5242547400857563`*^9}, {3.5242771462350645`*^9, 
   3.5242771465938654`*^9}, {3.5304877376854625`*^9, 3.530487831775594*^9}, {
   3.5305002113339696`*^9, 3.53050021156397*^9}, {3.531256229526664*^9, 
   3.5312562621635933`*^9}, 3.5312563043041887`*^9, 3.5312565353964834`*^9, 
   3.5312718541780033`*^9, {3.531272022680298*^9, 3.531272043970912*^9}, 
   3.5312721159644337`*^9, {3.531286527477171*^9, 3.53128654727564*^9}, {
   3.53133653657067*^9, 3.5313365374719667`*^9}, {3.5332481026588316`*^9, 
   3.5332481046588345`*^9}, {3.533940608115779*^9, 3.5339406083757796`*^9}, {
   3.533940643135828*^9, 3.533940671755868*^9}, {3.53394080166605*^9, 
   3.53394080166605*^9}, {3.5339408897661734`*^9, 3.5339408897661734`*^9}, {
   3.5340308298369713`*^9, 3.534030830046972*^9}, {3.534112012597548*^9, 
   3.534112012877548*^9}, {3.534112474048194*^9, 3.534112474048194*^9}, {
   3.534113465549582*^9, 3.534113471999591*^9}, {3.534114052440404*^9, 
   3.5341140526804037`*^9}, {3.534123360239563*^9, 3.5341233613895645`*^9}, {
   3.534262842344612*^9, 3.5342628439826155`*^9}, {3.5345322182396417`*^9, 
   3.534532219211697*^9}, {3.534643132523288*^9, 3.5346431327603016`*^9}, {
   3.5347067097112875`*^9, 3.534706709898488*^9}, {3.5347082903060637`*^9, 
   3.534708290493264*^9}, {3.5362781002847185`*^9, 3.5362781290847588`*^9}, {
   3.5362782051648655`*^9, 3.5362782927449875`*^9}, 3.5362797486970263`*^9, {
   3.536279783657075*^9, 3.536279832137143*^9}, {3.53628010156752*^9, 
   3.53628010156752*^9}, {3.5362801392775726`*^9, 3.536280166697611*^9}, {
   3.53652906512737*^9, 3.5365290653769703`*^9}, {3.5365397273466053`*^9, 
   3.5365397330766134`*^9}, {3.536540186427248*^9, 3.5365401865872483`*^9}, {
   3.539227727250819*^9, 3.53922772761082*^9}, {3.5393944379874496`*^9, 
   3.539394446018832*^9}, {3.539715023192065*^9, 3.5397150234140773`*^9}, {
   3.539739975773082*^9, 3.5397399760140953`*^9}, {3.539797199704884*^9, 
   3.539797201294886*^9}, {3.539835437168765*^9, 3.5398354373871655`*^9}, {
   3.5398732892608166`*^9, 3.539873290540019*^9}, {3.539908000735093*^9, 
   3.5399080032650967`*^9}, {3.539909324256946*^9, 3.539909324736947*^9}, {
   3.5399100056779003`*^9, 3.539910006327901*^9}, {3.5399117038534846`*^9, 
   3.539911705973488*^9}, {3.5399118081136303`*^9, 3.539911840493676*^9}, {
   3.5399120167139225`*^9, 3.539912058673981*^9}, {3.539912116434062*^9, 
   3.539912160944124*^9}, {3.5399122079541903`*^9, 3.539912209034192*^9}, {
   3.540225401674527*^9, 3.5402254175709553`*^9}, {3.540246803939736*^9, 
   3.540246809609744*^9}, {3.5402469657699623`*^9, 3.5402469659899626`*^9}, {
   3.54025326406878*^9, 3.54025326428878*^9}, {3.540319548749316*^9, 
   3.540319553564592*^9}, {3.540319615043108*^9, 3.540319615043108*^9}, {
   3.54031990826388*^9, 3.54031991963153*^9}, {3.540320024044502*^9, 
   3.540320024044502*^9}, {3.5404234560150514`*^9, 3.5404234562802515`*^9}, {
   3.54042664356545*^9, 3.5404266437682505`*^9}, {3.540427710030123*^9, 
   3.5404277102485237`*^9}, {3.540502502497757*^9, 3.540502505587761*^9}, {
   3.541558935167153*^9, 3.5415589691752124`*^9}, {3.5415590130736895`*^9, 
   3.541559016256095*^9}, {3.541625196004671*^9, 3.541625196398693*^9}, 
   3.5416263852991595`*^9, {3.5416288096753197`*^9, 3.5416288210353355`*^9}, {
   3.5416454005828133`*^9, 3.541645406332822*^9}, {3.541645442062872*^9, 
   3.5416454471728787`*^9}, {3.541645529512994*^9, 3.5416455313729963`*^9}, {
   3.5416499420791717`*^9, 3.541649942359172*^9}, {3.560538024109749*^9, 
   3.560538024369749*^9}, 3.5605380740698185`*^9, {3.5666111850869775`*^9, 
   3.566611185376978*^9}, {3.5696955663080134`*^9, 3.5696955663080134`*^9}, 
   3.685766520004327*^9, {3.685814668389265*^9, 3.685814668389265*^9}, {
   3.6858169198030386`*^9, 3.6858169445264525`*^9}, 3.6858173823154926`*^9, {
   3.6858175247846413`*^9, 3.6858175263117285`*^9}, {3.685818330835745*^9, 
   3.6858183337949142`*^9}, 3.685818375570304*^9, 3.6858197670098896`*^9, {
   3.6858245116672688`*^9, 3.6858245170775776`*^9}, 3.685825040784532*^9, 
   3.6860827830432463`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"-", "1"}], "\[LessEqual]", "n", "\[LessEqual]", "1"}], " ", 
   "\[And]", " ", 
   RowBox[{"n", "\[NotEqual]", "0"}]}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"F", "[", 
    SuperscriptBox["x", "n"], "]"}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox["1", "n"], "-", "1"}]], 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", "n"]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", "n"]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197801993811245`*^9, 3.5197802307059793`*^9}, 
   3.5197802678964443`*^9, {3.5349619561249747`*^9, 3.53496200984505*^9}, {
   3.5349621015651784`*^9, 3.534962104035182*^9}, {3.534962163665265*^9, 
   3.534962164115266*^9}, 3.534962219785344*^9, {3.5349640822679515`*^9, 
   3.534964083937954*^9}, {3.534965129279417*^9, 3.534965164959467*^9}, {
   3.5349652080495276`*^9, 3.5349652080495276`*^9}, {3.5349746773080826`*^9, 
   3.5349746773080826`*^9}, {3.534975420939124*^9, 3.534975423099127*^9}, {
   3.685765369788538*^9, 3.685765369788538*^9}, {3.685824654100415*^9, 
   3.685824654100415*^9}}],

Cell[TextData[{
 "Note: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", "n"], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", resulting integrand is not integrable."
}], "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}, {
   3.5608145301974535`*^9, 3.560814595487544*^9}, 3.6858144446954703`*^9}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox["1", "n"], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.5349743512176266`*^9, 3.5349743752476597`*^9}, {3.5349744860878153`*^9, 
   3.5349744860878153`*^9}, {3.5349767696610117`*^9, 3.5349767696610117`*^9}, 
   3.5362786460954823`*^9, {3.536282186878441*^9, 3.5362821923884487`*^9}, {
   3.5362823665986924`*^9, 3.5362823705586977`*^9}, {3.539394469251404*^9, 
   3.539394469251404*^9}, {3.539873282116004*^9, 3.539873283254806*^9}, {
   3.5399121983141766`*^9, 3.5399121983141766`*^9}, {3.5402255014211025`*^9, 
   3.5402255014211025`*^9}, {3.5402468137997494`*^9, 
   3.5402468148197513`*^9}, {3.540398290646603*^9, 3.540398290646603*^9}, {
   3.5415590242277093`*^9, 3.5415590242277093`*^9}, {3.569695568959165*^9, 
   3.569695568959165*^9}, 3.6858144665747223`*^9, {3.6858146365304427`*^9, 
   3.6858146623109174`*^9}, {3.6858245571288686`*^9, 3.6858245571298685`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox["1", "n"], "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", "n"]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495678825124752*^9, 3.495678868624813*^9, 
   3.495678953284932*^9, 3.4956790561650763`*^9, {3.495679179585249*^9, 
   3.495679198215275*^9}, 3.4956794688056536`*^9, 3.495679563895787*^9, {
   3.519347698835971*^9, 3.519347728101622*^9}, {3.5193477739345026`*^9, 
   3.519347777538109*^9}, {3.5193478217797866`*^9, 3.5193478387838163`*^9}, {
   3.519348134591536*^9, 3.5193481428439503`*^9}, {3.5197576021246157`*^9, 
   3.519757605431822*^9}, {3.5197795700292187`*^9, 3.519779608935687*^9}, {
   3.534962149765246*^9, 3.5349621724552774`*^9}, {3.5349650775293446`*^9, 
   3.534965103459381*^9}, 3.534973862136942*^9, 3.5349742172974386`*^9, 
   3.5362783981251354`*^9, {3.536278591995407*^9, 3.536278607745429*^9}, 
   3.5362787390056124`*^9, 3.5362788817458124`*^9, {3.536280261137744*^9, 
   3.5362803250178328`*^9}, 3.5362820058481874`*^9, {3.540246862469818*^9, 
   3.540246868999827*^9}, {3.5415590468789487`*^9, 3.5415590660669823`*^9}, {
   3.5416454118028293`*^9, 3.5416454148528337`*^9}, {3.6857665208203735`*^9, 
   3.685766521339403*^9}, 3.68581696685773*^9, {3.685817018367676*^9, 
   3.6858170217518697`*^9}, 3.685817358685141*^9, {3.6858175346492057`*^9, 
   3.685817537360361*^9}, {3.6858245649803176`*^9, 3.685824565514348*^9}, {
   3.6858246657610817`*^9, 3.6858246796858788`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.534113202099213*^9, 3.5341132112992263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1", "/", "n"}], "-", "1"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Tan", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"1", "/", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858246965328417`*^9, 3.685824741503414*^9}, {3.685845303182884*^9, 
   3.6858453036976852`*^9}, {3.7154577557295604`*^9, 3.715457758907742*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Cot", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"1", "/", "n"}], "-", "1"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Cot", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"1", "/", "n"}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858246965328417`*^9, 3.6858247677889175`*^9}, 3.6858453089704947`*^9, 
   3.715457763902028*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.541554026372131*^9, 3.5415540329709425`*^9}, {3.541554090269843*^9, 
   3.5415540937486486`*^9}, {3.5415541788779984`*^9, 
   3.5415541845564084`*^9}, {3.5415542699197583`*^9, 
   3.5415542699197583`*^9}, {3.5415545113613825`*^9, 3.541554511548583*^9}, {
   3.541554961468973*^9, 3.5415549756805983`*^9}, {3.5416447241018667`*^9, 
   3.541644753441908*^9}, {3.541644874612077*^9, 3.541644887622095*^9}, {
   3.5416450613923388`*^9, 3.5416450613923388`*^9}, {3.5416475854658723`*^9, 
   3.541647600335893*^9}, 3.541651849261842*^9, {3.560538025569751*^9, 
   3.560538025749751*^9}, 3.5605380751598206`*^9, {3.685764327542925*^9, 
   3.685764343098815*^9}, {3.6858163279191847`*^9, 3.6858163279191847`*^9}, {
   3.6858225110038366`*^9, 3.685822514101014*^9}, {3.6858248618302965`*^9, 
   3.6858248620153074`*^9}, 3.685825042794647*^9, 3.6860827859764137`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.534974691448103*^9, 3.5349746956381083`*^9}, {3.534975450099165*^9, 
   3.534975450099165*^9}, {3.5416444623515*^9, 3.5416444623515*^9}, {
   3.5416447832619495`*^9, 3.5416447832619495`*^9}, {3.5416448932321033`*^9, 
   3.5416448932321033`*^9}, {3.5416450201822805`*^9, 
   3.5416450549723296`*^9}, {3.541647604455899*^9, 3.5416476054759007`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.5415550260686865`*^9, 3.541555037893507*^9}, {
   3.541644759091915*^9, 3.5416447617719193`*^9}, {3.5416518628618608`*^9, 
   3.5416518649018636`*^9}, {3.685764343626845*^9, 3.6857643441298738`*^9}, {
   3.6858225276087866`*^9, 3.685822531921033*^9}, {3.685824865399501*^9, 
   3.685824867695632*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.68582257452247*^9}, {3.6858248704307885`*^9, 
   3.685824883232521*^9}, 3.712337672090767*^9, 3.7155493953247776`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Cot", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.685822591096418*^9}, {3.6858248726949177`*^9, 
   3.685824878899273*^9}, 3.7123376720987673`*^9, 3.7155493953337784`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["S:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["u", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"u", "\[Equal]", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.536980525228778*^9, 3.5369805352787914`*^9}, 3.5494761927292957`*^9, {
   3.5693730855884085`*^9, 3.5693730964320283`*^9}, {3.5694290956203146`*^9, 
   3.569429097200317*^9}, {3.5694291331103673`*^9, 3.56942920669047*^9}, {
   3.5694293707907*^9, 3.5694293730307035`*^9}, {3.5694297630412493`*^9, 
   3.5694297703712597`*^9}, {3.5718789276748276`*^9, 3.571878928324829*^9}, {
   3.5721097180632076`*^9, 3.572109718283208*^9}, 3.5758232222473235`*^9, {
   3.5764412692291803`*^9, 3.5764412896692085`*^9}, {3.6857596258150015`*^9, 
   3.6857596277361116`*^9}, {3.6857596722706585`*^9, 
   3.6857596904346976`*^9}, {3.685760350420447*^9, 3.6857603520845423`*^9}, 
   3.6857647089067383`*^9, {3.6858242023815784`*^9, 3.685824205796774*^9}, {
   3.685824281907127*^9, 3.6858242833722105`*^9}, 3.6860827867214565`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.56937339612417*^9, 
   3.569373402061509*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"u", "\[Equal]", 
   RowBox[{"e", "+", 
    RowBox[{"f", " ", "x"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693448172975397`*^9, 
   3.5693448172975397`*^9}, {3.5693533761948233`*^9, 
   3.5693533761948233`*^9}, {3.5694292380705137`*^9, 
   3.5694292380705137`*^9}, {3.5694293798207126`*^9, 
   3.5694293798207126`*^9}, {3.685760366500366*^9, 3.685760366500366*^9}, {
   3.6858242876184535`*^9, 3.6858242876184535`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["u", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "f"]}]}], 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", "u"}], 
    "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, 3.536980543328803*^9, {
   3.536980609078895*^9, 3.536980616128905*^9}, 3.569373228563586*^9, {
   3.5693732781084194`*^9, 3.5693732838917503`*^9}, {3.569373320190827*^9, 
   3.569373349338494*^9}, 3.5694292616405473`*^9, {3.56942930674061*^9, 
   3.56942932830064*^9}, {3.569429835711351*^9, 3.5694298386013546`*^9}, 
   3.5694300784416904`*^9, {3.576441301149225*^9, 3.5764413105992384`*^9}, {
   3.685759744579795*^9, 3.685759754333352*^9}, 3.6857603801171455`*^9, {
   3.6857647098437915`*^9, 3.6857647102908173`*^9}, {3.6858242261119356`*^9, 
   3.685824253779518*^9}, 3.685824291163656*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Tan", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"u_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Coefficient", "[", 
      RowBox[{"u", ",", "x", ",", "1"}], "]"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Tan", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", 
               RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",",
         "x"}], "]"}], ",", "x", ",", "u"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369806567789617`*^9, 
   3.536980699209021*^9}, 3.5494761881292896`*^9, {3.5693731131899867`*^9, 
   3.569373146310881*^9}, {3.5693734415897703`*^9, 3.5693734426378303`*^9}, 
   3.5693734893805037`*^9, 3.569377788480149*^9, {3.569429350000671*^9, 
   3.5694293589406834`*^9}, {3.569429389420726*^9, 3.569429457880822*^9}, 
   3.5694296610911064`*^9, {3.569429848611369*^9, 3.5694298609013863`*^9}, 
   3.569431373653504*^9, 3.5694395479239507`*^9, 3.5725322157525206`*^9, {
   3.576441348559291*^9, 3.576441380744336*^9}, {3.6857597978148394`*^9, 
   3.685759818292011*^9}, {3.6857598618545027`*^9, 3.685759881729639*^9}, {
   3.685764710852849*^9, 3.6857647113168755`*^9}, {3.6858243273077235`*^9, 
   3.685824408211351*^9}, 3.68589891601515*^9, 3.7061396608755474`*^9, 
   3.7154577699983764`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Cot", "[", 
         RowBox[{"c_.", "+", 
          RowBox[{"d_.", "*", 
           RowBox[{"u_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Coefficient", "[", 
      RowBox[{"u", ",", "x", ",", "1"}], "]"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Cot", "[", 
             RowBox[{"c", "+", 
              RowBox[{"d", "*", 
               RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}], ",",
         "x"}], "]"}], ",", "x", ",", "u"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "n", ",", "p"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369806567789617`*^9, 
   3.536980699209021*^9}, 3.5494761881292896`*^9, {3.5693731131899867`*^9, 
   3.569373146310881*^9}, {3.5693734415897703`*^9, 3.5693734426378303`*^9}, 
   3.5693734893805037`*^9, 3.569377788480149*^9, {3.569429350000671*^9, 
   3.5694293589406834`*^9}, {3.569429389420726*^9, 3.569429457880822*^9}, 
   3.5694296610911064`*^9, {3.569429848611369*^9, 3.5694298609013863`*^9}, 
   3.569431373653504*^9, 3.5694395479239507`*^9, 3.5725322157525206`*^9, {
   3.576441348559291*^9, 3.576441380744336*^9}, {3.6857597978148394`*^9, 
   3.685759818292011*^9}, {3.6857598618545027`*^9, 3.685759881729639*^9}, {
   3.685764710852849*^9, 3.6857647113168755`*^9}, {3.6858243273077235`*^9, 
   3.685824428508512*^9}, 3.685898919962376*^9, 3.706139660885547*^9, 
   3.715457771565466*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["N:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "u", "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"u", "\[Equal]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "n"]}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569431211483277*^9, 3.569431211683277*^9}, 
   3.5757865832172976`*^9, {3.5763466442642536`*^9, 3.5763467017043343`*^9}, {
   3.576346758794414*^9, 3.576346766914425*^9}, 3.5763484755768175`*^9, {
   3.685762402740833*^9, 3.685762437184803*^9}, {3.6857626559973183`*^9, 
   3.685762656409342*^9}, 3.6857631655784645`*^9, {3.685823800238577*^9, 
   3.6858238243419557`*^9}, {3.685824108197191*^9, 3.6858241084112034`*^9}, 
   3.686082787293489*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.574710513759987*^9, 
   3.5747105160099897`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"u", "\[Equal]", 
   RowBox[{"c", "+", 
    RowBox[{"d", " ", 
     SuperscriptBox["x", "n"]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.576346777874441*^9, 3.576346777874441*^9}, {
   3.6858238270481105`*^9, 3.6858238270481105`*^9}, {3.68582386166309*^9, 
   3.68582386166309*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", "u", "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693527582739587`*^9, 3.569352760173961*^9}, {3.5763467856944513`*^9, 
   3.5763467984944696`*^9}, {3.5763484883768353`*^9, 
   3.5763484998968515`*^9}, {3.6857624906998634`*^9, 3.685762499708379*^9}, {
   3.685762681134756*^9, 3.6857626835598946`*^9}, {3.6857631664905167`*^9, 
   3.685763167042548*^9}, {3.6858238451961484`*^9, 3.685823867573428*^9}, {
   3.6858241116683893`*^9, 3.685824117600729*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Tan", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"ExpandToSum", "[", 
           RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.685824003763218*^9}, {3.685824121585957*^9, 
   3.6858241358287716`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Cot", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"ExpandToSum", "[", 
           RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.6858240323568535`*^9}, {3.6858241237490807`*^9, 
   3.6858241338456583`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.57634840581672*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, 3.6857607860863657`*^9, 
   3.685761754022728*^9, 3.6857634626204543`*^9, 3.685818346010613*^9, 
   3.6858183842157984`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.5601904604844384`*^9, 3.5601904615608406`*^9}, {3.5605383470002007`*^9, 
   3.560538347490202*^9}, {3.5605392059014034`*^9, 3.5605392060714035`*^9}, {
   3.566609914235198*^9, 3.5666099207652073`*^9}, {3.566610893086569*^9, 
   3.566610899156577*^9}, {3.6857631075181437`*^9, 3.6857631098112745`*^9}, {
   3.6858198252202187`*^9, 3.685819840779109*^9}, 3.6858223342207255`*^9, 
   3.685822477577925*^9, 3.686082788853578*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
       RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, 
   3.5239334940268483`*^9, {3.524105742828332*^9, 3.524105745433536*^9}, {
   3.524105783326003*^9, 3.5241058043704395`*^9}, {3.524167197804468*^9, 
   3.524167275274576*^9}, {3.5241673584446926`*^9, 3.5241673584446926`*^9}, {
   3.5241684217861814`*^9, 3.5241684663262434`*^9}, {3.5241684966162863`*^9, 
   3.5241685133463097`*^9}, {3.524168558706373*^9, 3.524168575716397*^9}, {
   3.5242542194504414`*^9, 3.5242543397578526`*^9}, {3.5242543718471093`*^9, 
   3.5242544424216332`*^9}, {3.524254478910097*^9, 3.5242545759266677`*^9}, {
   3.5242546436307864`*^9, 3.5242546436307864`*^9}, {3.5242547267009325`*^9, 
   3.5242547400857563`*^9}, {3.5242771462350645`*^9, 
   3.5242771465938654`*^9}, {3.5304877376854625`*^9, 3.530487831775594*^9}, {
   3.5305002113339696`*^9, 3.53050021156397*^9}, {3.531256229526664*^9, 
   3.5312562621635933`*^9}, 3.5312563043041887`*^9, 3.5312565353964834`*^9, 
   3.5312718541780033`*^9, {3.531272022680298*^9, 3.531272043970912*^9}, 
   3.5312721159644337`*^9, {3.531286527477171*^9, 3.53128654727564*^9}, {
   3.53133653657067*^9, 3.5313365374719667`*^9}, {3.5332481026588316`*^9, 
   3.5332481046588345`*^9}, {3.533940608115779*^9, 3.5339406083757796`*^9}, {
   3.533940643135828*^9, 3.533940671755868*^9}, {3.53394080166605*^9, 
   3.53394080166605*^9}, {3.5339408897661734`*^9, 3.5339408897661734`*^9}, {
   3.5340308298369713`*^9, 3.534030830046972*^9}, {3.534112012597548*^9, 
   3.534112012877548*^9}, {3.534112474048194*^9, 3.534112474048194*^9}, {
   3.534113465549582*^9, 3.534113471999591*^9}, {3.534114052440404*^9, 
   3.5341140526804037`*^9}, {3.534123360239563*^9, 3.5341233613895645`*^9}, {
   3.534262842344612*^9, 3.5342628439826155`*^9}, {3.5345322182396417`*^9, 
   3.534532219211697*^9}, {3.534643132523288*^9, 3.5346431327603016`*^9}, {
   3.5347067097112875`*^9, 3.534706709898488*^9}, {3.5347082903060637`*^9, 
   3.534708290493264*^9}, {3.5362781002847185`*^9, 3.5362781290847588`*^9}, {
   3.5362782051648655`*^9, 3.5362782927449875`*^9}, 3.5362797486970263`*^9, {
   3.536279783657075*^9, 3.536279832137143*^9}, {3.53628010156752*^9, 
   3.53628010156752*^9}, {3.5362801392775726`*^9, 3.536280166697611*^9}, {
   3.53652906512737*^9, 3.5365290653769703`*^9}, {3.5365397273466053`*^9, 
   3.5365397330766134`*^9}, {3.536540186427248*^9, 3.5365401865872483`*^9}, {
   3.539227727250819*^9, 3.53922772761082*^9}, {3.5393944379874496`*^9, 
   3.539394446018832*^9}, {3.539715023192065*^9, 3.5397150234140773`*^9}, {
   3.539739975773082*^9, 3.5397399760140953`*^9}, {3.539797199704884*^9, 
   3.539797201294886*^9}, {3.539835437168765*^9, 3.5398354373871655`*^9}, {
   3.5398732892608166`*^9, 3.539873290540019*^9}, {3.539908000735093*^9, 
   3.5399080032650967`*^9}, {3.539909324256946*^9, 3.539909324736947*^9}, {
   3.5399100056779003`*^9, 3.539910006327901*^9}, {3.5399117038534846`*^9, 
   3.539911705973488*^9}, {3.5399118081136303`*^9, 3.539911840493676*^9}, {
   3.5399120167139225`*^9, 3.539912058673981*^9}, {3.539912116434062*^9, 
   3.539912160944124*^9}, {3.5399122079541903`*^9, 3.539912209034192*^9}, {
   3.540225401674527*^9, 3.5402254175709553`*^9}, {3.540246803939736*^9, 
   3.540246809609744*^9}, {3.5402469657699623`*^9, 3.5402469659899626`*^9}, {
   3.54025326406878*^9, 3.54025326428878*^9}, {3.540319548749316*^9, 
   3.540319553564592*^9}, {3.540319615043108*^9, 3.540319615043108*^9}, {
   3.54031990826388*^9, 3.54031991963153*^9}, {3.540320024044502*^9, 
   3.540320024044502*^9}, {3.5404234560150514`*^9, 3.5404234562802515`*^9}, {
   3.54042664356545*^9, 3.5404266437682505`*^9}, {3.540427710030123*^9, 
   3.5404277102485237`*^9}, {3.540502502497757*^9, 3.540502505587761*^9}, {
   3.541558935167153*^9, 3.5415589691752124`*^9}, {3.5415590130736895`*^9, 
   3.541559016256095*^9}, {3.541625196004671*^9, 3.541625196398693*^9}, 
   3.5416263852991595`*^9, {3.5416288096753197`*^9, 3.5416288210353355`*^9}, {
   3.5416454005828133`*^9, 3.541645406332822*^9}, {3.541645442062872*^9, 
   3.5416454471728787`*^9}, {3.541645529512994*^9, 3.5416455313729963`*^9}, {
   3.5416499420791717`*^9, 3.541649942359172*^9}, {3.560538024109749*^9, 
   3.560538024369749*^9}, 3.5605380740698185`*^9, {3.5666111850869775`*^9, 
   3.566611185376978*^9}, {3.5696955663080134`*^9, 3.5696955663080134`*^9}, 
   3.685766520004327*^9, {3.685814668389265*^9, 3.685814668389265*^9}, {
   3.6858169198030386`*^9, 3.6858169445264525`*^9}, 3.6858173823154926`*^9, {
   3.6858175247846413`*^9, 3.6858175263117285`*^9}, {3.685818330835745*^9, 
   3.6858183337949142`*^9}, 3.685818375570304*^9, 3.6858197670098896`*^9, 
   3.6860827971090508`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], "n"], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "m"], 
    RowBox[{"F", "[", 
     SuperscriptBox["x", "n"], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox[
          RowBox[{"m", "+", "1"}], "n"], "-", "1"}]], " ", 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      SuperscriptBox["x", "n"]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SuperscriptBox["x", "n"]}]}]}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.6857653837793384`*^9, 3.685765386341485*^9}, 3.685814463534548*^9, {
   3.6858171322781916`*^9, 3.6858171322791915`*^9}}],

Cell[TextData[{
 "Note: If ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}]]],
 ", resulting integrand is not integrable."
}], "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}, {
   3.5608145301974535`*^9, 3.560814608527563*^9}, 3.6858144597143297`*^9}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.5349743512176266`*^9, 3.5349743752476597`*^9}, {3.5349744860878153`*^9, 
   3.5349744860878153`*^9}, {3.5349767696610117`*^9, 3.5349767696610117`*^9}, 
   3.5362786460954823`*^9, {3.536282186878441*^9, 3.5362821923884487`*^9}, {
   3.5362823665986924`*^9, 3.5362823705586977`*^9}, {3.539394469251404*^9, 
   3.539394469251404*^9}, {3.539873282116004*^9, 3.539873283254806*^9}, {
   3.5399121983141766`*^9, 3.5399121983141766`*^9}, {3.5402255014211025`*^9, 
   3.5402255014211025`*^9}, {3.5402468137997494`*^9, 
   3.5402468148197513`*^9}, {3.540398290646603*^9, 3.540398290646603*^9}, {
   3.5415590242277093`*^9, 3.5415590242277093`*^9}, {3.569695568959165*^9, 
   3.569695568959165*^9}, 3.6858144665747223`*^9, {3.6858146365304427`*^9, 
   3.6858146623109174`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", 
        RowBox[{
         FractionBox[
          RowBox[{"m", "+", "1"}], "n"], "-", "1"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", "x"}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", "n"]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495678825124752*^9, 3.495678868624813*^9, 
   3.495678953284932*^9, 3.4956790561650763`*^9, {3.495679179585249*^9, 
   3.495679198215275*^9}, 3.4956794688056536`*^9, 3.495679563895787*^9, {
   3.519347698835971*^9, 3.519347728101622*^9}, {3.5193477739345026`*^9, 
   3.519347777538109*^9}, {3.5193478217797866`*^9, 3.5193478387838163`*^9}, {
   3.519348134591536*^9, 3.5193481428439503`*^9}, {3.5197576021246157`*^9, 
   3.519757605431822*^9}, {3.5197795700292187`*^9, 3.519779608935687*^9}, {
   3.534962149765246*^9, 3.5349621724552774`*^9}, {3.5349650775293446`*^9, 
   3.534965103459381*^9}, 3.534973862136942*^9, 3.5349742172974386`*^9, 
   3.5362783981251354`*^9, {3.536278591995407*^9, 3.536278607745429*^9}, 
   3.5362787390056124`*^9, 3.5362788817458124`*^9, {3.536280261137744*^9, 
   3.5362803250178328`*^9}, 3.5362820058481874`*^9, {3.540246862469818*^9, 
   3.540246868999827*^9}, {3.5415590468789487`*^9, 3.5415590660669823`*^9}, {
   3.5416454118028293`*^9, 3.5416454148528337`*^9}, {3.6857665208203735`*^9, 
   3.685766521339403*^9}, 3.68581696685773*^9, {3.685817018367676*^9, 
   3.6858170217518697`*^9}, 3.685817358685141*^9, {3.6858175346492057`*^9, 
   3.685817537360361*^9}, 3.685824685572215*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.534113202099213*^9, 3.5341132112992263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Simplify", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], "-", "1"}], 
           ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Tan", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], ",", "0"}], "]"}],
     " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, 
   3.6858453213257165`*^9, {3.7154577811020117`*^9, 3.7154577873933716`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Simplify", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], "-", "1"}], 
           ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Cot", "[", 
              RowBox[{"c", "+", 
               RowBox[{"d", "*", "x"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
         "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "]"}], ",", "0"}], "]"}],
     " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "p", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.6858176047332144`*^9}, 
   3.68584532329132*^9, 3.7154577925826683`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, 3.566609916945202*^9, {
   3.566611400317279*^9, 3.566611400317279*^9}, {3.566611433367325*^9, 
   3.566611433587325*^9}, {3.566611536177469*^9, 3.5666115388674726`*^9}, {
   3.566613610550373*^9, 3.5666136114903746`*^9}, 3.6858218434826565`*^9, {
   3.685821889590294*^9, 3.6858218906453543`*^9}, 3.6858219540219793`*^9, {
   3.685822262180605*^9, 3.685822263823699*^9}, 3.6858223472604713`*^9, {
   3.6858225196383305`*^9, 3.685822520746394*^9}, 3.6858226634475565`*^9, 
   3.6860827993761797`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: Although this rule reduces the degree of the tangent factor, the \
resulting integral is not integrable unless ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.6858206544276466`*^9, 3.685820734064202*^9}, {3.6858219768722863`*^9, 
   3.6858219921751614`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.498073490999159*^9, 
   3.498073513135598*^9}, {3.566611402597282*^9, 3.566611402597282*^9}, {
   3.5666115450574813`*^9, 3.5666115450574813`*^9}, {3.566613639750414*^9, 
   3.566613639760414*^9}, 3.685821958211219*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "-", "n", "+", "1"}]], " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}], 
       RowBox[{"d", " ", "n"}]]}]}]}]}], "-", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "n", "+", "1"}], 
    RowBox[{"d", " ", "n"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "n"}]], " ", 
     RowBox[{"Tan", "[", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, 3.4980734706411233`*^9, 
   3.498073536410839*^9, {3.4980741369390755`*^9, 3.4980741506490946`*^9}, {
   3.4980742559992423`*^9, 3.498074256429243*^9}, {3.5551147746484385`*^9, 
   3.5551147794184446`*^9}, {3.6858218514501123`*^9, 
   3.6858219114695454`*^9}, {3.6858226661097083`*^9, 3.685822671573021*^9}, {
   3.685822764095313*^9, 3.685822765686404*^9}, 3.685823342678406*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "n_"}]}]}], "]"}], "^", "2"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "n"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", "n"}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"x", "^", "m"}], ",", "x"}], "]"}], " ", "-", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", "n"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}]}], "*", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", 
           RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "d", ",", "m", ",", "n"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.5488202489124737`*^9, {
   3.560726499478859*^9, 3.560726508498872*^9}, 3.560726666209093*^9, {
   3.560726864759371*^9, 3.5607268668993735`*^9}, 3.5666114085772905`*^9, 
   3.5666115508974895`*^9, 3.566613352050011*^9, {3.566613647950425*^9, 
   3.566613648820427*^9}, 3.569692158469123*^9, {3.685822679847494*^9, 
   3.6858226810645638`*^9}, {3.6858227531176853`*^9, 3.685822801175434*^9}, {
   3.68582337719238*^9, 3.685823377455395*^9}, {3.685823503090581*^9, 
   3.685823503503605*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Cot", "[", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", 
         RowBox[{"x_", "^", "n_"}]}]}], "]"}], "^", "2"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 
     RowBox[{
      RowBox[{"Cot", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", 
         RowBox[{"x", "^", "n"}]}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", "n"}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{"x", "^", "m"}], ",", "x"}], "]"}], " ", "+", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", "n"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}]}], "*", 
        RowBox[{"Cot", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", 
           RowBox[{"x", "^", "n"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "d", ",", "m", ",", "n"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.5488202489124737`*^9, {
   3.560726499478859*^9, 3.560726508498872*^9}, 3.560726666209093*^9, {
   3.560726864759371*^9, 3.5607268668993735`*^9}, 3.5666114085772905`*^9, 
   3.5666115508974895`*^9, 3.566613352050011*^9, {3.566613647950425*^9, 
   3.566613648820427*^9}, 3.569692158469123*^9, {3.685822679847494*^9, 
   3.6858226810645638`*^9}, {3.6858227531176853`*^9, 
   3.6858228213785896`*^9}, {3.685823380045543*^9, 3.6858233802985578`*^9}, {
   3.6858234669065113`*^9, 3.6858234713977685`*^9}, {3.6858235055517216`*^9, 
   3.68582350587074*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"0", "<", "n", "<", 
       RowBox[{"m", "+", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.5415536021761856`*^9, 3.5415536417690554`*^9}, {3.541553723606799*^9, 
   3.541553727070005*^9}, {3.5415537801724987`*^9, 3.5415538106081514`*^9}, {
   3.5601904604844384`*^9, 3.5601904615608406`*^9}, {3.5605383470002007`*^9, 
   3.560538347490202*^9}, {3.5605392059014034`*^9, 3.5605392060714035`*^9}, {
   3.566609914235198*^9, 3.5666099207652073`*^9}, {3.566610893086569*^9, 
   3.566610899156577*^9}, {3.5666110406467752`*^9, 3.566611074566823*^9}, {
   3.5666112449470615`*^9, 3.5666112452170615`*^9}, {3.566613598470356*^9, 
   3.5666136032003627`*^9}, {3.6858208532990217`*^9, 3.685820853637041*^9}, {
   3.685820913536467*^9, 3.685820913537467*^9}, 3.6860828001402235`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"0", "<", "n", "<", 
        RowBox[{"m", "+", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"p", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, 3.566609916945202*^9, {
   3.566611400317279*^9, 3.566611400317279*^9}, {3.566611433367325*^9, 
   3.566611433587325*^9}, {3.566611536177469*^9, 3.5666115388674726`*^9}, {
   3.566613610550373*^9, 3.5666136114903746`*^9}, {3.685820937003809*^9, 
   3.6858209432151647`*^9}, 3.686082806788604*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: Although this rule reduces the degree of the tangent factor, the \
resulting integrals are not integrable unless ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.6858206544276466`*^9, 3.685820734064202*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"0", "<", "n", "<", 
    RowBox[{"m", "+", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"p", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.498073490999159*^9, 
   3.498073513135598*^9}, {3.566611402597282*^9, 3.566611402597282*^9}, {
   3.5666115450574813`*^9, 3.5666115450574813`*^9}, {3.566613639750414*^9, 
   3.566613639760414*^9}, {3.6858209474314055`*^9, 3.6858209474314055`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "-", "n", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}], 
         RowBox[{"p", "-", "1"}]]}], 
       RowBox[{"b", " ", "n", " ", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "n", "+", "1"}], 
    RowBox[{"b", " ", "n", " ", 
     RowBox[{"(", 
      RowBox[{"p", "-", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], 
      RowBox[{"p", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], 
     RowBox[{"p", "-", "2"}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, 3.4980734706411233`*^9, 
   3.498073536410839*^9, {3.4980741369390755`*^9, 3.4980741506490946`*^9}, {
   3.4980742559992423`*^9, 3.498074256429243*^9}, {3.5551147746484385`*^9, 
   3.5551147794184446`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"Tan", "[", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"x_", "^", "n_"}]}]}], "]"}], "^", "p_"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"Tan", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
     "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "n"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
     " ", "\n", "  ", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Tan", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"LtQ", "[", 
      RowBox[{"0", ",", "n", ",", 
       RowBox[{"m", "+", "1"}]}], "]"}], " ", "&&", " ", 
     RowBox[{"GtQ", "[", 
      RowBox[{"p", ",", "1"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.5488202489124737`*^9, {
   3.560726499478859*^9, 3.560726508498872*^9}, 3.560726666209093*^9, {
   3.560726864759371*^9, 3.5607268668993735`*^9}, 3.5666114085772905`*^9, 
   3.5666115508974895`*^9, 3.566613352050011*^9, {3.566613647950425*^9, 
   3.566613648820427*^9}, 3.569692158469123*^9, {3.68582085974139*^9, 
   3.68582086638277*^9}, {3.685820957663991*^9, 3.6858209595661*^9}, {
   3.7154578083775716`*^9, 3.7154578297607946`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"Cot", "[", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"x_", "^", "n_"}]}]}], "]"}], "^", "p_"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "-", "1"}], ")"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
     "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "n"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
     " ", "\n", "  ", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Cot", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"LtQ", "[", 
      RowBox[{"0", ",", "n", ",", 
       RowBox[{"m", "+", "1"}]}], "]"}], " ", "&&", " ", 
     RowBox[{"GtQ", "[", 
      RowBox[{"p", ",", "1"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, {3.498074366599397*^9, 
   3.498074366609397*^9}, 3.498075728011303*^9, 3.5488202489324737`*^9, {
   3.5607265107388754`*^9, 3.560726512058877*^9}, 3.5607266689690967`*^9, {
   3.5607268689893765`*^9, 3.5607268710093794`*^9}, 3.566611410357293*^9, 
   3.566611552627492*^9, 3.566613353950014*^9, {3.5666136521404314`*^9, 
   3.566613652960432*^9}, 3.5696921591571617`*^9, {3.68582087372719*^9, 
   3.6858208835937543`*^9}, 3.685820967335544*^9, 3.71545783702221*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"0", "<", "n", "<", 
        RowBox[{"m", "+", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"p", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560538357830216*^9, {
   3.5666094807245913`*^9, 3.566609487604601*^9}, 3.566609916945202*^9, {
   3.566611400317279*^9, 3.566611400317279*^9}, {3.566611433367325*^9, 
   3.566611433587325*^9}, {3.566611536177469*^9, 3.5666115388674726`*^9}, {
   3.5666118191278653`*^9, 3.566611828197878*^9}, {3.5666136661704507`*^9, 
   3.566613666990452*^9}, {3.6858209799042635`*^9, 3.685820984337517*^9}, 
   3.686082808175683*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Note: Although this rule reduces the degree of the tangent factor, the \
resulting integrals are not integrable unless ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"m", "+", "1"}], "n"], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"p", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 "."
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.4980735583132772`*^9, 3.498073601915354*^9}, {
   3.6858206544276466`*^9, 3.685820734064202*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"0", "<", "n", "<", 
    RowBox[{"m", "+", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"p", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.498073490999159*^9, 
   3.498073513135598*^9}, {3.566611402597282*^9, 3.566611402597282*^9}, {
   3.5666115450574813`*^9, 3.5666115450574813`*^9}, {3.566611834437886*^9, 
   3.566611834437886*^9}, {3.5666136710204573`*^9, 3.5666136717004585`*^9}, {
   3.6858209886607637`*^9, 3.6858209886607637`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "-", "n", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"Tan", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}], 
         RowBox[{"p", "+", "1"}]]}], 
       RowBox[{"b", " ", "n", " ", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "n", "+", "1"}], 
    RowBox[{"b", " ", "n", " ", 
     RowBox[{"(", 
      RowBox[{"p", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"Tan", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], 
      RowBox[{"p", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Tan", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], 
     RowBox[{"p", "+", "2"}]], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, 3.4980734706411233`*^9, 
   3.498073536410839*^9, {3.4980741369390755`*^9, 3.4980741506490946`*^9}, {
   3.4980742559992423`*^9, 3.498074256429243*^9}, {3.5551147746484385`*^9, 
   3.5551147794184446`*^9}, {3.5666118447179008`*^9, 3.5666118828979545`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"Tan", "[", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"x_", "^", "n_"}]}]}], "]"}], "^", "p_"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"Tan", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
     "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "n"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"Tan", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
     " ", "\n", "  ", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Tan", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"LtQ", "[", 
      RowBox[{"0", ",", "n", ",", 
       RowBox[{"m", "+", "1"}]}], "]"}], " ", "&&", " ", 
     RowBox[{"LtQ", "[", 
      RowBox[{"p", ",", 
       RowBox[{"-", "1"}]}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, 3.5488202489124737`*^9, {
   3.560726499478859*^9, 3.560726508498872*^9}, 3.560726666209093*^9, {
   3.560726864759371*^9, 3.5607268668993735`*^9}, 3.5666114085772905`*^9, 
   3.5666115508974895`*^9, 3.5666118367878895`*^9, {3.5666119299680204`*^9, 
   3.5666119503180485`*^9}, {3.5666133219899693`*^9, 
   3.5666133252499733`*^9}, {3.566613675110463*^9, 3.5666136759604645`*^9}, 
   3.569692159973209*^9, {3.6858208758863134`*^9, 3.685820885422859*^9}, {
   3.6858209931330194`*^9, 3.6858209947101097`*^9}, {3.7154578564193196`*^9, 
   3.7154578679369783`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x_", "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"Cot", "[", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"x_", "^", "n_"}]}]}], "]"}], "^", "p_"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", 
        RowBox[{"(", 
         RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"Cot", "[", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
     "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"b", "*", "n", "*", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", 
          RowBox[{"(", 
           RowBox[{"m", "-", "n"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"Cot", "[", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
     " ", "\n", "  ", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Cot", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"LtQ", "[", 
      RowBox[{"0", ",", "n", ",", 
       RowBox[{"m", "+", "1"}]}], "]"}], " ", "&&", " ", 
     RowBox[{"LtQ", "[", 
      RowBox[{"p", ",", 
       RowBox[{"-", "1"}]}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, 3.4980734370230646`*^9, {3.498074366599397*^9, 
   3.498074366609397*^9}, 3.498075728011303*^9, 3.5488202489324737`*^9, {
   3.5607265107388754`*^9, 3.560726512058877*^9}, 3.5607266689690967`*^9, {
   3.5607268689893765`*^9, 3.5607268710093794`*^9}, 3.566611410357293*^9, 
   3.566611552627492*^9, 3.566611838487892*^9, {3.5666119636480675`*^9, 
   3.5666119760480847`*^9}, 3.566613330749981*^9, {3.566613678910469*^9, 
   3.56661367978047*^9}, 3.5696921605642424`*^9, {3.6858208776604147`*^9, 
   3.6858208869019437`*^9}, 3.685820998699338*^9, 3.715457874797371*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["X:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.541554026372131*^9, 3.5415540329709425`*^9}, {3.541554090269843*^9, 
   3.5415540937486486`*^9}, {3.5415541788779984`*^9, 
   3.5415541845564084`*^9}, {3.5415542699197583`*^9, 
   3.5415542699197583`*^9}, {3.5415545113613825`*^9, 3.541554511548583*^9}, {
   3.541554961468973*^9, 3.5415549756805983`*^9}, {3.5416447241018667`*^9, 
   3.541644753441908*^9}, {3.541644874612077*^9, 3.541644887622095*^9}, {
   3.5416450613923388`*^9, 3.5416450613923388`*^9}, {3.5416475854658723`*^9, 
   3.541647600335893*^9}, 3.541651849261842*^9, {3.560538025569751*^9, 
   3.560538025749751*^9}, 3.5605380751598206`*^9, {3.685764327542925*^9, 
   3.685764343098815*^9}, {3.6858163279191847`*^9, 3.6858163279191847`*^9}, {
   3.6858225110038366`*^9, 3.685822514101014*^9}, 3.6860828007552586`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.534974691448103*^9, 3.5349746956381083`*^9}, {3.534975450099165*^9, 
   3.534975450099165*^9}, {3.5416444623515*^9, 3.5416444623515*^9}, {
   3.5416447832619495`*^9, 3.5416447832619495`*^9}, {3.5416448932321033`*^9, 
   3.5416448932321033`*^9}, {3.5416450201822805`*^9, 
   3.5416450549723296`*^9}, {3.541647604455899*^9, 3.5416476054759007`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.5415550260686865`*^9, 3.541555037893507*^9}, {
   3.541644759091915*^9, 3.5416447617719193`*^9}, {3.5416518628618608`*^9, 
   3.5416518649018636`*^9}, {3.685764343626845*^9, 3.6857643441298738`*^9}, {
   3.6858225276087866`*^9, 3.685822531921033*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
      "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.68582257452247*^9}, 3.712337672214774*^9, 
   3.7155493954407845`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Cot", "[", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", 
             RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",",
      "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, {3.541554243462112*^9, 3.541554250154524*^9}, {
   3.541555044039918*^9, 3.541555107157629*^9}, {3.541644789891958*^9, 
   3.5416447903319592`*^9}, {3.541644910332127*^9, 3.5416449689922094`*^9}, {
   3.541645076192359*^9, 3.5416451034423976`*^9}, 3.5416476094459057`*^9, 
   3.541649758068914*^9, {3.541651868011868*^9, 3.541651884451891*^9}, 
   3.5605378485895033`*^9, {3.685764344682905*^9, 3.685764345178934*^9}, {
   3.685822549117017*^9, 3.685822591096418*^9}, 3.712337672223775*^9, 
   3.7155493954507847`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", 
           SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, 3.5194115106017265`*^9, {3.519411582829853*^9, 
   3.5194116058086934`*^9}, {3.5194117949434257`*^9, 
   3.5194118041006413`*^9}, {3.519412000598587*^9, 3.5194120130942087`*^9}, {
   3.5197938929263773`*^9, 3.5197938931447773`*^9}, {3.521473804992657*^9, 
   3.521473829412691*^9}, {3.5214741072930803`*^9, 3.521474108863083*^9}, {
   3.523316613544486*^9, 3.523316613544486*^9}, {3.5233184952952356`*^9, 
   3.5233184952952356`*^9}, {3.523318653417488*^9, 3.523318653417488*^9}, 
   3.5239324213533645`*^9, {3.5239326372733436`*^9, 3.523932666538995*^9}, 
   3.5239334940268483`*^9, {3.524105742828332*^9, 3.524105745433536*^9}, {
   3.524105783326003*^9, 3.5241058043704395`*^9}, {3.524167197804468*^9, 
   3.524167275274576*^9}, {3.5241673584446926`*^9, 3.5241673584446926`*^9}, {
   3.5241684217861814`*^9, 3.5241684663262434`*^9}, {3.5241684966162863`*^9, 
   3.5241685133463097`*^9}, {3.524168558706373*^9, 3.524168575716397*^9}, {
   3.5242542194504414`*^9, 3.5242543397578526`*^9}, {3.5242543718471093`*^9, 
   3.5242544424216332`*^9}, {3.524254478910097*^9, 3.5242545759266677`*^9}, {
   3.5242546436307864`*^9, 3.5242546436307864`*^9}, {3.5242547267009325`*^9, 
   3.5242547400857563`*^9}, {3.5242771462350645`*^9, 
   3.5242771465938654`*^9}, {3.5304877376854625`*^9, 3.530487831775594*^9}, {
   3.5305002113339696`*^9, 3.53050021156397*^9}, {3.531256229526664*^9, 
   3.5312562621635933`*^9}, 3.5312563043041887`*^9, 3.5312565353964834`*^9, 
   3.5312718541780033`*^9, {3.531272022680298*^9, 3.531272043970912*^9}, 
   3.5312721159644337`*^9, {3.531286527477171*^9, 3.53128654727564*^9}, {
   3.53133653657067*^9, 3.5313365374719667`*^9}, {3.5332481026588316`*^9, 
   3.5332481046588345`*^9}, {3.533940608115779*^9, 3.5339406083757796`*^9}, {
   3.533940643135828*^9, 3.533940671755868*^9}, {3.53394080166605*^9, 
   3.53394080166605*^9}, {3.5339408897661734`*^9, 3.5339408897661734`*^9}, {
   3.5340308298369713`*^9, 3.534030830046972*^9}, {3.534112012597548*^9, 
   3.534112012877548*^9}, {3.534112474048194*^9, 3.534112474048194*^9}, {
   3.534113465549582*^9, 3.534113471999591*^9}, {3.534114052440404*^9, 
   3.5341140526804037`*^9}, {3.534123360239563*^9, 3.5341233613895645`*^9}, {
   3.534262842344612*^9, 3.5342628439826155`*^9}, {3.5345322182396417`*^9, 
   3.534532219211697*^9}, {3.534643132523288*^9, 3.5346431327603016`*^9}, {
   3.5347067097112875`*^9, 3.534706709898488*^9}, {3.5347082903060637`*^9, 
   3.534708290493264*^9}, {3.5362781002847185`*^9, 3.5362781290847588`*^9}, {
   3.5362782051648655`*^9, 3.5362782927449875`*^9}, 3.5362797486970263`*^9, {
   3.536279783657075*^9, 3.536279832137143*^9}, {3.53628010156752*^9, 
   3.53628010156752*^9}, {3.5362801392775726`*^9, 3.536280166697611*^9}, {
   3.53652906512737*^9, 3.5365290653769703`*^9}, {3.5365397273466053`*^9, 
   3.5365397330766134`*^9}, {3.536540186427248*^9, 3.5365401865872483`*^9}, {
   3.539227727250819*^9, 3.53922772761082*^9}, {3.5393944379874496`*^9, 
   3.539394446018832*^9}, {3.539715023192065*^9, 3.5397150234140773`*^9}, {
   3.539739975773082*^9, 3.5397399760140953`*^9}, {3.539797199704884*^9, 
   3.539797201294886*^9}, {3.539835437168765*^9, 3.5398354373871655`*^9}, {
   3.5398732892608166`*^9, 3.539873290540019*^9}, {3.539908000735093*^9, 
   3.5399080032650967`*^9}, {3.539909324256946*^9, 3.539909324736947*^9}, {
   3.5399100056779003`*^9, 3.539910006327901*^9}, {3.5399117038534846`*^9, 
   3.539911705973488*^9}, {3.5399118081136303`*^9, 3.539911840493676*^9}, {
   3.5399120167139225`*^9, 3.539912058673981*^9}, {3.539912116434062*^9, 
   3.539912160944124*^9}, {3.5399122079541903`*^9, 3.539912209034192*^9}, {
   3.540225401674527*^9, 3.5402254175709553`*^9}, {3.540246803939736*^9, 
   3.540246809609744*^9}, {3.5402469657699623`*^9, 3.5402469659899626`*^9}, {
   3.54025326406878*^9, 3.54025326428878*^9}, {3.540319548749316*^9, 
   3.540319553564592*^9}, {3.540319615043108*^9, 3.540319615043108*^9}, {
   3.54031990826388*^9, 3.54031991963153*^9}, {3.540320024044502*^9, 
   3.540320024044502*^9}, {3.5404234560150514`*^9, 3.5404234562802515`*^9}, {
   3.54042664356545*^9, 3.5404266437682505`*^9}, {3.540427710030123*^9, 
   3.5404277102485237`*^9}, {3.540502502497757*^9, 3.540502505587761*^9}, {
   3.541558935167153*^9, 3.5415589691752124`*^9}, {3.5415590130736895`*^9, 
   3.541559016256095*^9}, {3.541625196004671*^9, 3.541625196398693*^9}, 
   3.5416263852991595`*^9, {3.5416288096753197`*^9, 3.5416288210353355`*^9}, {
   3.5416454005828133`*^9, 3.541645406332822*^9}, {3.541645442062872*^9, 
   3.5416454471728787`*^9}, {3.541645529512994*^9, 3.5416455313729963`*^9}, {
   3.5416499420791717`*^9, 3.541649942359172*^9}, {3.560538024109749*^9, 
   3.560538024369749*^9}, 3.5605380740698185`*^9, {3.5666111850869775`*^9, 
   3.566611185376978*^9}, {3.5696955663080134`*^9, 3.5696955663080134`*^9}, 
   3.685766520004327*^9, {3.685814668389265*^9, 3.685814668389265*^9}, {
   3.6858169198030386`*^9, 3.6858169445264525`*^9}, 3.6858173823154926`*^9, {
   3.6858175247846413`*^9, 3.6858175263117285`*^9}, {3.685818330835745*^9, 
   3.6858183337949142`*^9}, 3.685818375570304*^9, 3.6858197670098896`*^9, {
   3.685819863070384*^9, 3.6858198770961857`*^9}, {3.685822360318218*^9, 
   3.6858223638254185`*^9}, 3.6860827894286113`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction\
\>", "Subsubsection",
 CellChangeTimes->{
  3.49539151296132*^9, 3.495678787084699*^9, 3.4956789080048685`*^9, 
   3.4956790295250387`*^9, 3.495679129075178*^9, {3.495679335075466*^9, 
   3.4956793607555027`*^9}, {3.495679674485942*^9, 3.4956796884659615`*^9}, {
   3.6858199574597826`*^9, 3.685819963464126*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", " ", "x"}], ")"}], "m"], 
     SuperscriptBox["x", "m"]]}], "\[Equal]", "0"}]], "Input",
  CellChangeTimes->{{3.496607156053342*^9, 3.4966071870033855`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.496441803031353*^9, 3.4965396318089237`*^9, {3.4966002562016735`*^9, 
   3.4966002624716825`*^9}, 3.496600707442305*^9, 3.4966008475725017`*^9, {
   3.4966070255131593`*^9, 3.496607032413169*^9}, {3.496607078713234*^9, 
   3.4966070808932366`*^9}, {3.4966071978234005`*^9, 3.496607200693404*^9}, {
   3.4966322361067057`*^9, 3.4966322383967094`*^9}, {3.5182408053387165`*^9, 
   3.518240855102804*^9}, {3.518240891700468*^9, 3.5182409026360874`*^9}, {
   3.5182410660151744`*^9, 3.5182410727231865`*^9}, {3.51824110908685*^9, 
   3.5182411327052917`*^9}, {3.518241193217798*^9, 3.5182411959634027`*^9}, {
   3.518291448974951*^9, 3.5182914676169834`*^9}, {3.518291524323083*^9, 
   3.51829153976711*^9}, {3.518291575631573*^9, 3.518291589562398*^9}, {
   3.5182917514854827`*^9, 3.5182917625459023`*^9}, {3.5197703785418744`*^9, 
   3.5197704585544147`*^9}, {3.5197823003612146`*^9, 3.519782301297216*^9}, {
   3.5327273625227003`*^9, 3.532727372032713*^9}, {3.5330847121896152`*^9, 
   3.533084735369648*^9}, {3.533085202270302*^9, 3.5330852300403404`*^9}, {
   3.5330855269607563`*^9, 3.5330855372607703`*^9}, {3.533085675350964*^9, 
   3.533085678880969*^9}, {3.533085724121032*^9, 3.533085727061036*^9}, {
   3.533086048201486*^9, 3.5330860543014946`*^9}, {3.533087161943045*^9, 
   3.5330871737730618`*^9}, {3.533087596973654*^9, 3.533087624703693*^9}, {
   3.5330880821743336`*^9, 3.5330880821743336`*^9}, {3.5330881138943777`*^9, 
   3.533088126024395*^9}, {3.5362820775082874`*^9, 3.5362821103483334`*^9}, {
   3.6857653837793384`*^9, 3.685765386341485*^9}, 3.685814463534548*^9, {
   3.6858171322781916`*^9, 3.6858171322791915`*^9}, {3.685820014429041*^9, 
   3.6858200199533567`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, {
   3.495391733731629*^9, 3.495391739521637*^9}, {3.495678797624714*^9, 
   3.4956788080547285`*^9}, 3.4956788502147875`*^9, {3.4956789897249827`*^9, 
   3.495679002425001*^9}, {3.495679072285098*^9, 3.4956790738051004`*^9}, {
   3.495679236085328*^9, 3.495679236315328*^9}, {3.49567937329552*^9, 
   3.4956794246455917`*^9}, {3.495679535505747*^9, 3.495679554085773*^9}, {
   3.5193214041603594`*^9, 3.5193214071867647`*^9}, {3.5193301244794507`*^9, 
   3.5193301257494526`*^9}, 3.5193476221390333`*^9, 3.5193479662828407`*^9, {
   3.5193485103181963`*^9, 3.5193485549498744`*^9}, {3.519663663325344*^9, 
   3.5196636652216225`*^9}, {3.519680530562682*^9, 3.519680530562682*^9}, {
   3.5197556284379497`*^9, 3.5197556284379497`*^9}, {3.5197580987514877`*^9, 
   3.519758100545491*^9}, {3.5197581334459496`*^9, 3.519758155582388*^9}, {
   3.519758193256454*^9, 3.5197582684329863`*^9}, {3.5197584793297567`*^9, 
   3.519758583210339*^9}, {3.5197800633332853`*^9, 3.519780130444603*^9}, 
   3.519780263762437*^9, {3.519780890789939*^9, 3.519780929602807*^9}, 
   3.5197826749958725`*^9, {3.5213126916874757`*^9, 3.5213126916874757`*^9}, {
   3.521328242751012*^9, 3.521328242751012*^9}, {3.532302339923381*^9, 
   3.5323023440533867`*^9}, {3.5323027369539366`*^9, 
   3.5323027369539366`*^9}, {3.5326362525142794`*^9, 
   3.5326362612742915`*^9}, {3.534962194665309*^9, 3.5349622042053223`*^9}, {
   3.5349623337055035`*^9, 3.5349623339155035`*^9}, {3.5349625695458336`*^9, 
   3.5349625695458336`*^9}, {3.5349651959395103`*^9, 
   3.5349652008995175`*^9}, {3.534966956776985*^9, 3.5349669586769876`*^9}, {
   3.5349743512176266`*^9, 3.5349743752476597`*^9}, {3.5349744860878153`*^9, 
   3.5349744860878153`*^9}, {3.5349767696610117`*^9, 3.5349767696610117`*^9}, 
   3.5362786460954823`*^9, {3.536282186878441*^9, 3.5362821923884487`*^9}, {
   3.5362823665986924`*^9, 3.5362823705586977`*^9}, {3.539394469251404*^9, 
   3.539394469251404*^9}, {3.539873282116004*^9, 3.539873283254806*^9}, {
   3.5399121983141766`*^9, 3.5399121983141766`*^9}, {3.5402255014211025`*^9, 
   3.5402255014211025`*^9}, {3.5402468137997494`*^9, 
   3.5402468148197513`*^9}, {3.540398290646603*^9, 3.540398290646603*^9}, {
   3.5415590242277093`*^9, 3.5415590242277093`*^9}, {3.569695568959165*^9, 
   3.569695568959165*^9}, 3.6858144665747223`*^9, {3.6858146365304427`*^9, 
   3.6858146623109174`*^9}, 3.6858223805303745`*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", 
          SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["e", 
        RowBox[{"IntPart", "[", "m", "]"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", " ", "x"}], ")"}], 
        RowBox[{"FracPart", "[", "m", "]"}]]}], 
      SuperscriptBox["x", 
       RowBox[{"FracPart", "[", "m", "]"}]]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Tan", "[", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, 3.495391718911608*^9, 
   3.495391753851657*^9, 3.495678825124752*^9, 3.495678868624813*^9, 
   3.495678953284932*^9, 3.4956790561650763`*^9, {3.495679179585249*^9, 
   3.495679198215275*^9}, 3.4956794688056536`*^9, 3.495679563895787*^9, {
   3.519347698835971*^9, 3.519347728101622*^9}, {3.5193477739345026`*^9, 
   3.519347777538109*^9}, {3.5193478217797866`*^9, 3.5193478387838163`*^9}, {
   3.519348134591536*^9, 3.5193481428439503`*^9}, {3.5197576021246157`*^9, 
   3.519757605431822*^9}, {3.5197795700292187`*^9, 3.519779608935687*^9}, {
   3.534962149765246*^9, 3.5349621724552774`*^9}, {3.5349650775293446`*^9, 
   3.534965103459381*^9}, 3.534973862136942*^9, 3.5349742172974386`*^9, 
   3.5362783981251354`*^9, {3.536278591995407*^9, 3.536278607745429*^9}, 
   3.5362787390056124`*^9, 3.5362788817458124`*^9, {3.536280261137744*^9, 
   3.5362803250178328`*^9}, 3.5362820058481874`*^9, {3.540246862469818*^9, 
   3.540246868999827*^9}, {3.5415590468789487`*^9, 3.5415590660669823`*^9}, {
   3.5416454118028293`*^9, 3.5416454148528337`*^9}, {3.6857665208203735`*^9, 
   3.685766521339403*^9}, 3.68581696685773*^9, {3.685817018367676*^9, 
   3.6858170217518697`*^9}, 3.685817358685141*^9, {3.6858175346492057`*^9, 
   3.685817537360361*^9}, {3.6858198981143885`*^9, 3.685819949794344*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, {3.534113202099213*^9, 3.5341132112992263`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Tan", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "^", 
     RowBox[{"IntPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", 
              RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], 
      ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
       "p"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858200462728624`*^9, 3.685820053981303*^9}, {3.6858201209671345`*^9, 
   3.685820121203148*^9}, 3.6858201592913265`*^9, {3.6858223849966297`*^9, 
   3.6858223887728453`*^9}, {3.6858224253769393`*^9, 3.6858224519234576`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Cot", "[", 
          RowBox[{"c_.", "+", 
           RowBox[{"d_.", "*", 
            RowBox[{"x_", "^", "n_"}]}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "^", 
     RowBox[{"IntPart", "[", "m", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "*", "x"}], ")"}], "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"FracPart", "[", "m", "]"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Cot", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", "*", 
              RowBox[{"x", "^", "n"}]}]}], "]"}]}]}], ")"}], "^", "p"}]}], 
      ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "m", ",", "n", ",", 
       "p"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.495422238811969*^9, 3.5239327382679205`*^9, {3.5241061049829674`*^9, 
   3.5241061158093867`*^9}, {3.5241061634986706`*^9, 3.524106178100296*^9}, {
   3.5241522039971824`*^9, 3.5241522138657465`*^9}, {3.524167459434834*^9, 
   3.524167501524893*^9}, 3.5241675598849745`*^9, {3.5241689646025457`*^9, 
   3.524169057582676*^9}, {3.5241694886052837`*^9, 3.5241694922252893`*^9}, {
   3.5241697349256287`*^9, 3.524169770915679*^9}, {3.524169890175846*^9, 
   3.52416989278585*^9}, {3.5241699517859325`*^9, 3.524169977745969*^9}, {
   3.5241702075262904`*^9, 3.5241702284463196`*^9}, {3.5241703474164867`*^9, 
   3.5241703535564947`*^9}, {3.5241704168565836`*^9, 
   3.5241704281665993`*^9}, {3.5241707090069923`*^9, 3.5241707118469963`*^9}, 
   3.5241707660170727`*^9, {3.5241735897163877`*^9, 3.524173666646496*^9}, {
   3.524173777586651*^9, 3.5241738523767557`*^9}, {3.5241739428768826`*^9, 
   3.524173979156933*^9}, 3.524174297647379*^9, {3.524185483815135*^9, 
   3.524185485365137*^9}, {3.524185602895302*^9, 3.5241856035153027`*^9}, {
   3.5241856771854057`*^9, 3.5241856830554132`*^9}, {3.524185838105631*^9, 
   3.5241858734356804`*^9}, {3.5241859285057573`*^9, 3.524185944045779*^9}, {
   3.524186003185862*^9, 3.524186038265911*^9}, {3.52418611602602*^9, 
   3.5241861192260246`*^9}, 3.524186217346162*^9, 3.5241863019362803`*^9, {
   3.5241863667163706`*^9, 3.5241863784563875`*^9}, {3.52418651596658*^9, 
   3.5241865406766143`*^9}, {3.5241867699369354`*^9, 
   3.5241868085469894`*^9}, {3.5241868836270943`*^9, 3.5241869237971506`*^9}, 
   3.5241869873472395`*^9, {3.5241870885173817`*^9, 3.524187101037399*^9}, {
   3.5241871740575013`*^9, 3.5241871912575254`*^9}, {3.524187306817687*^9, 
   3.5241873162877*^9}, {3.5241873622777643`*^9, 3.524187409757831*^9}, 
   3.524187460357902*^9, {3.5241874977879543`*^9, 3.524187498347955*^9}, {
   3.524187557468038*^9, 3.5241875586680393`*^9}, {3.524187589468083*^9, 
   3.5241875901780834`*^9}, {3.5241876610181828`*^9, 
   3.5241876929782276`*^9}, {3.524187781768352*^9, 3.524187783788355*^9}, {
   3.5241896786382575`*^9, 3.524189683318266*^9}, {3.524234559451813*^9, 
   3.5242346007294855`*^9}, {3.524238368588504*^9, 3.5242383752965155`*^9}, {
   3.5242384122217803`*^9, 3.524238419928194*^9}, {3.5242393344018*^9, 
   3.524239346819422*^9}, {3.5242394127451377`*^9, 3.5242394565500145`*^9}, {
   3.52423959033585*^9, 3.524239629803919*^9}, {3.524239671487192*^9, 
   3.5242397220468807`*^9}, {3.524239788190997*^9, 3.5242398647715316`*^9}, {
   3.5242437175850987`*^9, 3.5242437668343854`*^9}, {3.524244465247612*^9, 
   3.5242444873372507`*^9}, {3.524244751882516*^9, 3.524244753208518*^9}, {
   3.524245115768755*^9, 3.524245137000392*^9}, {3.5242452528149953`*^9, 
   3.5242452554826*^9}, {3.5242456723777323`*^9, 3.5242456731889334`*^9}, {
   3.524245869936479*^9, 3.5242459980595045`*^9}, {3.5242461068384953`*^9, 
   3.5242461450273623`*^9}, {3.524246187958638*^9, 3.52424618922224*^9}, {
   3.5242462316543145`*^9, 3.524246267690378*^9}, {3.5242463181564665`*^9, 
   3.5242463224620743`*^9}, {3.5242485499936485`*^9, 3.524248561823665*^9}, {
   3.524248621593749*^9, 3.5242486251937537`*^9}, {3.5242487642059507`*^9, 
   3.5242487732359633`*^9}, {3.5242532845563993`*^9, 
   3.5242532909524107`*^9}, {3.52425347849594*^9, 3.5242535106475964`*^9}, {
   3.524253596868948*^9, 3.5242536191613874`*^9}, {3.5242537436028056`*^9, 
   3.5242537593588333`*^9}, 3.5242539276207285`*^9, {3.524254113276655*^9, 
   3.5242541142126565`*^9}, {3.5242547334245443`*^9, 3.5242547363105493`*^9}, 
   3.5249480328482866`*^9, 3.5249480870383625`*^9, 3.530383624409831*^9, 
   3.5303836572717104`*^9, {3.5304855821174417`*^9, 3.5304855869274483`*^9}, {
   3.530486056548106*^9, 3.530486059638111*^9}, {3.5304860949231606`*^9, 
   3.5304860971731634`*^9}, {3.530486238303361*^9, 3.530486240243364*^9}, {
   3.530486952589362*^9, 3.5304870139844484`*^9}, {3.5304870692495255`*^9, 
   3.5304871419796276`*^9}, 3.530487215744731*^9, {3.530487355799927*^9, 
   3.5304873566799283`*^9}, {3.5304874052599964`*^9, 3.530487445625053*^9}, {
   3.530487479950101*^9, 3.5304874842801075`*^9}, {3.5304875702952275`*^9, 
   3.5304875724102306`*^9}, {3.5304876163102922`*^9, 
   3.5304876315153136`*^9}, {3.5312563706495886`*^9, 3.531256451626027*^9}, 
   3.531256559250784*^9, {3.5312719121413507`*^9, 3.5312719878001423`*^9}, {
   3.5312755920427885`*^9, 3.5312755952874546`*^9}, {3.5312856302770605`*^9, 
   3.531285654712197*^9}, {3.53128571933512*^9, 3.531285787002421*^9}, {
   3.5312858245464067`*^9, 3.53128595057763*^9}, {3.5312865586519985`*^9, 
   3.5312865654417615`*^9}, 3.5312884106750765`*^9, 3.5312884470173345`*^9, {
   3.5312884901092978`*^9, 3.5312885050908403`*^9}, {3.5312897715218782`*^9, 
   3.531289778872448*^9}, {3.531289921757907*^9, 3.531289929969715*^9}, {
   3.5312899831061215`*^9, 3.531289984918728*^9}, {3.5312906523184013`*^9, 
   3.5312906554428945`*^9}, {3.5313272051827936`*^9, 
   3.5313272099296193`*^9}, {3.531327286489707*^9, 3.5313272948817744`*^9}, {
   3.531328437394627*^9, 3.5313284476694016`*^9}, {3.531328488668355*^9, 
   3.5313284899702272`*^9}, {3.5313285673514957`*^9, 
   3.5313285721283646`*^9}, {3.531328972333832*^9, 3.5313290468309536`*^9}, 
   3.5313291984689984`*^9, 3.5313298886113744`*^9, {3.5313316869672832`*^9, 
   3.5313316871876*^9}, {3.531333470732211*^9, 3.531333473936819*^9}, {
   3.531334503567355*^9, 3.5313345333702097`*^9}, {3.531334712117235*^9, 
   3.531334724334803*^9}, {3.5313353872780685`*^9, 3.531335388289523*^9}, 
   3.531335434696253*^9, {3.5313387527874336`*^9, 3.5313387613597603`*^9}, {
   3.531339025249214*^9, 3.5313390434353647`*^9}, 3.531341876639312*^9, {
   3.5313421989627905`*^9, 3.531342251227944*^9}, {3.531346616364702*^9, 
   3.531346616715206*^9}, {3.5313466656655936`*^9, 3.5313466801764593`*^9}, {
   3.5315136290734544`*^9, 3.531513629934693*^9}, {3.531605034435397*^9, 
   3.5316050365784783`*^9}, {3.5316052098275986`*^9, 
   3.5316052120307665`*^9}, {3.531605458364978*^9, 3.531605459536662*^9}, {
   3.531699937927347*^9, 3.531699949764368*^9}, {3.531700346314579*^9, 
   3.531700368586605*^9}, {3.533937757524288*^9, 3.5339377669843016`*^9}, {
   3.5339377979043446`*^9, 3.533937819634375*^9}, {3.533938179374879*^9, 
   3.5339381969849033`*^9}, {3.5339382401149635`*^9, 3.533938297835045*^9}, {
   3.533938343125108*^9, 3.53393834467511*^9}, {3.533940711115923*^9, 
   3.533940734385956*^9}, {3.533940828086087*^9, 3.533940838736102*^9}, {
   3.5339509493977776`*^9, 3.533950953016984*^9}, {3.5339537404454803`*^9, 
   3.533953741022681*^9}, 3.5341123221979814`*^9, {3.534112354908027*^9, 
   3.5341124143381104`*^9}, {3.5341132023392134`*^9, 3.5341132204892387`*^9}, 
   3.5341132649293013`*^9, {3.534113300779351*^9, 3.534113329099391*^9}, 
   3.5341133652694416`*^9, 3.5341142271706486`*^9, {3.5345321670477133`*^9, 
   3.534532171965995*^9}, {3.5362786526054916`*^9, 3.5362789025258417`*^9}, 
   3.536278964715928*^9, {3.536280431045983*^9, 3.5362805001260796`*^9}, {
   3.536282251078531*^9, 3.5362822674485536`*^9}, 3.536282315798621*^9, {
   3.539394472692601*^9, 3.539394480494047*^9}, {3.539873240448331*^9, 
   3.5398732425387344`*^9}, {3.5398764447838063`*^9, 3.539876499193883*^9}, {
   3.5398766331940703`*^9, 3.5398766391340785`*^9}, {3.539876715014185*^9, 
   3.539876723554197*^9}, {3.53987682549434*^9, 3.5398768289543447`*^9}, {
   3.539876864374394*^9, 3.539876888614428*^9}, 3.5398769372844963`*^9, {
   3.5398772720149646`*^9, 3.539877285924984*^9}, {3.53987916159761*^9, 
   3.5398791659376163`*^9}, {3.5399079172749767`*^9, 3.539907920534981*^9}, {
   3.539907989705078*^9, 3.5399079959450865`*^9}, {3.5399084131756706`*^9, 
   3.539908413365671*^9}, {3.5399098233376446`*^9, 3.539909825507648*^9}, {
   3.539911719093506*^9, 3.5399117237635126`*^9}, {3.5399117615235653`*^9, 
   3.539911789053604*^9}, {3.539911825573655*^9, 3.539911826853657*^9}, {
   3.5399121026740427`*^9, 3.5399121080540504`*^9}, {3.5400525421824102`*^9, 
   3.540052546452416*^9}, {3.540225445604204*^9, 3.5402254620466332`*^9}, {
   3.540246837799783*^9, 3.5402468548298073`*^9}, 3.540253158138632*^9, {
   3.540258206054838*^9, 3.5402582233148623`*^9}, {3.540258564005339*^9, 
   3.5402585665953426`*^9}, 3.5403195777839775`*^9, 3.5403198886027546`*^9, 
   3.5403200387483425`*^9, {3.54034257060467*^9, 3.540342575644677*^9}, {
   3.540398255328141*^9, 3.540398258401346*^9}, {3.5415590771274023`*^9, 
   3.5415591276558905`*^9}, {3.5416498676490674`*^9, 3.5416498715990725`*^9}, 
   3.541875470169911*^9, {3.5605358410266924`*^9, 3.560535849346704*^9}, 
   3.569695608938452*^9, {3.685766521868433*^9, 3.6857665223564615`*^9}, {
   3.685814676765744*^9, 3.6858146853222337`*^9}, {3.685817453547567*^9, 
   3.6858175185792866`*^9}, {3.6858175674780836`*^9, 3.685817574945511*^9}, {
   3.6858200462728624`*^9, 3.685820053981303*^9}, {3.6858201209671345`*^9, 
   3.685820121203148*^9}, {3.6858201592913265`*^9, 3.685820188706009*^9}, {
   3.685822409797048*^9, 3.6858224493793125`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["N:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Tan", "[", "u", "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"u", "\[Equal]", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "n"]}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569431211483277*^9, 3.569431211683277*^9}, 
   3.5757865832172976`*^9, {3.5763466442642536`*^9, 3.5763467017043343`*^9}, {
   3.576346758794414*^9, 3.576346766914425*^9}, 3.5763484755768175`*^9, {
   3.685762402740833*^9, 3.685762437184803*^9}, {3.6857626559973183`*^9, 
   3.685762656409342*^9}, 3.6857631655784645`*^9, {3.685823800238577*^9, 
   3.6858238243419557`*^9}, 3.686082789953641*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, {3.574710513759987*^9, 
   3.5747105160099897`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"u", "\[Equal]", 
   RowBox[{"c", "+", 
    RowBox[{"d", " ", 
     SuperscriptBox["x", "n"]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.576346777874441*^9, 3.576346777874441*^9}, {
   3.6858238270481105`*^9, 3.6858238270481105`*^9}, {3.68582386166309*^9, 
   3.68582386166309*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Tan", "[", "u", "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"e", " ", "x"}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Tan", "[", 
            RowBox[{"c", "+", 
             RowBox[{"d", " ", 
              SuperscriptBox["x", "n"]}]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693527582739587`*^9, 3.569352760173961*^9}, {3.5763467856944513`*^9, 
   3.5763467984944696`*^9}, {3.5763484883768353`*^9, 
   3.5763484998968515`*^9}, {3.6857624906998634`*^9, 3.685762499708379*^9}, {
   3.685762681134756*^9, 3.6857626835598946`*^9}, {3.6857631664905167`*^9, 
   3.685763167042548*^9}, {3.6858238451961484`*^9, 3.685823867573428*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Tan", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Tan", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "m", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.685824003763218*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e_", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Cot", "[", "u_", "]"}]}]}], ")"}], "^", "p_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"e", "*", "x"}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Cot", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "p"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "e", ",", "m", ",", "p"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.576346707344342*^9, 
   3.5763467201043596`*^9}, 3.576346817984497*^9, {3.576346886044592*^9, 
   3.576346989924738*^9}, {3.5763485357069016`*^9, 3.576348553696927*^9}, {
   3.6857625176084027`*^9, 3.685762598976057*^9}, {3.685762696693646*^9, 
   3.685762713057582*^9}, {3.68576316759658*^9, 3.685763169276676*^9}, {
   3.6858238980021687`*^9, 3.6858240323568535`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.57634840581672*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"Sec", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], "]"}], "p"], " ", 
   RowBox[{"Tan", "[", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      SuperscriptBox["x", "n"]}]}], "]"}]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, {3.6857607860863657`*^9, 
   3.6857608151510277`*^9}, {3.6857619580463977`*^9, 3.685761975664405*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Sec", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], "p"], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
      " ", 
      RowBox[{
       RowBox[{"m", "-", "n"}], "\[GreaterEqual]", "0"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692070092462187`*^9, 3.5692070142862263`*^9}, 
   3.5692092416483483`*^9, {3.5750843373894625`*^9, 3.5750843463282785`*^9}, {
   3.685761981598745*^9, 3.685761982575801*^9}, {3.6860821614626937`*^9, 
   3.6860821616607046`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9, 
   3.498320585541303*^9, 3.4983399737643228`*^9}],

Cell[TextData[{
 "Note: Dummy exponent ",
 Cell[BoxData[
  RowBox[{"q", "=", "1"}]]],
 " required in program code so InputForm of integrand is recognized."
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.498070277840313*^9, 
   3.498320585541303*^9, 3.4983399737643228`*^9, {3.515617440158862*^9, 
   3.5156174661803503`*^9}, {3.515617499147236*^9, 3.5156175165942335`*^9}, {
   3.515617583825079*^9, 3.515617584119096*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"m", "-", "n"}], "\[GreaterEqual]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4983332564786777`*^9, 3.4983332736887016`*^9}, {
   3.498333370138837*^9, 3.4983334115588946`*^9}, {3.4983338041794443`*^9, 
   3.4983338086894503`*^9}, {3.498337052812745*^9, 3.4983370759943857`*^9}, {
   3.4983383977721167`*^9, 3.498338452392193*^9}, {3.498340047164426*^9, 
   3.498340067994455*^9}, {3.4983401877146225`*^9, 3.498340188494623*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"Sec", "[", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["x", "n"]}]}], "]"}], "p"], " ", 
    RowBox[{"Tan", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       SuperscriptBox["x", "n"]}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox["x", 
         RowBox[{"m", "-", "n", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"Sec", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            SuperscriptBox["x", "n"]}]}], "]"}], "p"]}], 
       RowBox[{"b", " ", "n", " ", "p"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "-", "n", "+", "1"}], 
    RowBox[{"b", " ", "n", " ", "p"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", "-", "n"}]], " ", 
     SuperscriptBox[
      RowBox[{"Sec", "[", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         SuperscriptBox["x", "n"]}]}], "]"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, {3.4983205558700514`*^9, 3.4983205610648603`*^9}, {
   3.4983399892343445`*^9, 3.4983400148843803`*^9}, 3.498340119924527*^9, 
   3.4983401699645977`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Sec", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"Tan", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "q_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Sec", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", "p"}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", "p"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Sec", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
    RowBox[{"GeQ", "[", 
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"q", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4983205373216186`*^9, 3.4983399672443137`*^9, 3.498340125934536*^9, 
   3.498345781803907*^9, 3.5692049981134033`*^9, 3.5692052530437603`*^9, {
   3.5692055614741917`*^9, 3.569205562334193*^9}, {3.7154578986307335`*^9, 
   3.7154579591981983`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"Csc", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "p_."}], "*", 
     RowBox[{
      RowBox[{"Cot", "[", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"x_", "^", "n_."}]}]}], "]"}], "^", "q_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"x", "^", 
       RowBox[{"(", 
        RowBox[{"m", "-", "n", "+", "1"}], ")"}]}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Csc", "[", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", "p"}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "n", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", "p"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "n"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Csc", "[", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"x", "^", "n"}]}]}], "]"}], "^", "p"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "p"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
    RowBox[{"GeQ", "[", 
     RowBox[{"m", ",", "n"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"q", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4983205373216186`*^9, 3.4983399672443137`*^9, 3.498340125934536*^9, 
   3.498345781803907*^9, {3.498347135893965*^9, 3.498347135893965*^9}, 
   3.4983472137640734`*^9, {3.4983541345637627`*^9, 3.498354154763791*^9}, 
   3.5692049987934046`*^9, 3.5692052574337664`*^9, {3.5692055651141973`*^9, 
   3.5692055660641985`*^9}, 3.715457970718857*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "e", " ", "x", ")", "^", "m", " ", "(", "a", "+", "b",
       " ", "tan", "(", "c", "+", "d", " ", "x", "^", "n", ")", ")", "^", 
      "p"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{774, 597},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2347, 43, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2917, 67, 7047, 110, 53, "Subsubtitle"],
Cell[9967, 179, 304, 4, 48, "Subsubsection"],
Cell[10274, 185, 2282, 48, 62, "Subsubsection"],
Cell[12559, 235, 532, 12, 51, "Subsubsection"],
Cell[13094, 249, 3330, 51, 54, "Subsubsection"],
Cell[16427, 302, 3089, 61, 82, "Subsubtitle"],
Cell[19519, 365, 819, 11, 48, "Subsubsection"],
Cell[20341, 378, 10508, 167, 145, "Code"],
Cell[30852, 547, 10460, 167, 159, "Code"],
Cell[41315, 716, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[41441, 723, 3011, 52, 53, "Subsubtitle"],
Cell[44455, 777, 2617, 36, 48, "Subsubsection"],
Cell[47075, 815, 2131, 45, 74, "Subsubtitle"],
Cell[49209, 862, 771, 11, 48, "Subsubsection"],
Cell[49983, 875, 1788, 42, 145, "Code"],
Cell[51774, 919, 1791, 42, 159, "Code"],
Cell[53568, 963, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[53694, 970, 5290, 88, 53, "Subsubtitle"],
Cell[58987, 1060, 479, 7, 48, "Subsubsection"],
Cell[59469, 1069, 2794, 44, 36, "Subsubsection"],
Cell[62266, 1115, 3641, 68, 82, "Subsubtitle"],
Cell[65910, 1185, 771, 11, 48, "Subsubsection"],
Cell[66684, 1198, 4863, 89, 145, "Code"],
Cell[71550, 1289, 4860, 89, 159, "Code"],
Cell[76413, 1380, 190, 4, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[76640, 1389, 5243, 87, 53, "Subsubtitle"],
Cell[81886, 1478, 478, 7, 48, "Subsubsection"],
Cell[82367, 1487, 2707, 43, 36, "Subsubsection"],
Cell[85077, 1532, 3442, 61, 74, "Subsubtitle"],
Cell[88522, 1595, 771, 11, 48, "Subsubsection"],
Cell[89296, 1608, 4764, 84, 145, "Code"],
Cell[94063, 1694, 4768, 84, 159, "Code"],
Cell[98834, 1780, 190, 4, 48, "Subsubsection"]
}, Closed]],
Cell[99039, 1787, 68, 1, 30, "Input"],
Cell[99110, 1790, 2409, 46, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[101544, 1840, 2468, 44, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[104037, 1888, 7079, 112, 74, "Subsubtitle"],
Cell[111119, 2002, 304, 4, 48, "Subsubsection"],
Cell[111426, 2008, 2496, 51, 62, "Subsubsection"],
Cell[113925, 2061, 557, 13, 51, "Subsubsection"],
Cell[114485, 2076, 3306, 52, 54, "Subsubsection"],
Cell[117794, 2130, 3075, 62, 82, "Subsubtitle"],
Cell[120872, 2194, 819, 11, 48, "Subsubsection"],
Cell[121694, 2207, 10758, 177, 145, "Code"],
Cell[132455, 2386, 10731, 177, 159, "Code"],
Cell[143189, 2565, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[143315, 2572, 3623, 59, 74, "Subsubtitle"],
Cell[146941, 2633, 735, 16, 65, "Subsubsection"],
Cell[147679, 2651, 1233, 17, 34, "Subsubsection"],
Cell[148915, 2670, 2306, 56, 92, "Subsubtitle"],
Cell[151224, 2728, 771, 11, 48, "Subsubsection"],
Cell[151998, 2741, 2396, 63, 145, "Code"],
Cell[154397, 2806, 2480, 65, 159, "Code"],
Cell[156880, 2873, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[157006, 2880, 2704, 48, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[159735, 2932, 3762, 66, 74, "Subsubtitle"],
Cell[163500, 3000, 775, 17, 68, "Subsubsection"],
Cell[164278, 3019, 1434, 25, 36, "Subsubsection"],
Cell[165715, 3046, 2566, 68, 96, "Subsubtitle"],
Cell[168284, 3116, 771, 11, 48, "Subsubsection"],
Cell[169058, 3129, 3238, 88, 215, "Code"],
Cell[172299, 3219, 3289, 89, 229, "Code"],
Cell[175591, 3310, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[175717, 3317, 3838, 68, 74, "Subsubtitle"],
Cell[179558, 3387, 775, 17, 68, "Subsubsection"],
Cell[180336, 3406, 1508, 27, 36, "Subsubsection"],
Cell[181847, 3435, 2616, 68, 96, "Subsubtitle"],
Cell[184466, 3505, 771, 11, 48, "Subsubsection"],
Cell[185240, 3518, 3383, 91, 215, "Code"],
Cell[188626, 3611, 3389, 91, 229, "Code"],
Cell[192018, 3704, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[192156, 3712, 3004, 53, 74, "Subsubtitle"],
Cell[195163, 3767, 2617, 36, 48, "Subsubsection"],
Cell[197783, 3805, 2155, 46, 74, "Subsubtitle"],
Cell[199941, 3853, 771, 11, 48, "Subsubsection"],
Cell[200715, 3866, 1881, 47, 145, "Code"],
Cell[202599, 3915, 1882, 47, 159, "Code"],
Cell[204484, 3964, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[204622, 3972, 6817, 104, 53, "Subsubtitle"],
Cell[211442, 4078, 366, 7, 48, "Subsubsection"],
Cell[211811, 4087, 2080, 36, 55, "Subsubsection"],
Cell[213894, 4125, 3061, 42, 34, "Subsubsection"],
Cell[216958, 4169, 3274, 68, 89, "Subsubtitle"],
Cell[220235, 4239, 819, 11, 48, "Subsubsection"],
Cell[221057, 4252, 10636, 171, 145, "Code"],
Cell[231696, 4425, 10608, 171, 159, "Code"],
Cell[242307, 4598, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[242433, 4605, 5280, 89, 53, "Subsubtitle"],
Cell[247716, 4696, 478, 7, 48, "Subsubsection"],
Cell[248197, 4705, 2707, 43, 36, "Subsubsection"],
Cell[250907, 4750, 3574, 66, 74, "Subsubtitle"],
Cell[254484, 4818, 771, 11, 48, "Subsubsection"],
Cell[255258, 4831, 4966, 91, 145, "Code"],
Cell[260227, 4924, 4968, 91, 159, "Code"],
Cell[265198, 5017, 190, 4, 48, "Subsubsection"]
}, Closed]],
Cell[265403, 5024, 68, 1, 30, "Input"],
Cell[265474, 5027, 2366, 44, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[267865, 5075, 5163, 88, 53, "Subsubtitle"],
Cell[273031, 5165, 345, 5, 48, "Subsubsection"],
Cell[273379, 5172, 614, 12, 36, "Subsubsection"],
Cell[273996, 5186, 1325, 23, 36, "Subsubsection"],
Cell[275324, 5211, 1921, 52, 95, "Subsubtitle"],
Cell[277248, 5265, 771, 11, 48, "Subsubsection"],
Cell[278022, 5278, 2335, 67, 180, "Code"],
Cell[280360, 5347, 2455, 69, 194, "Code"],
Cell[282818, 5418, 89, 2, 48, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)